100 REM  *****  BASICTOOL  *****
110 :
120 DATA 20,6B,A8,A5,0A,A6,2B,A4
130 DATA 2C,4C,D5,FF,20,6B,A8,20
140 DATA DE,9D,84,D8,85,D9,20,DE
150 DATA 9D,A6,14,A8,A9,D8,4C,D8
160 DATA FF,20,8E,94,20,2C,93,20
170 DATA 1A,93,A5,64,85,D0,A5,65
180 DATA 85,D1,20,91,94,20,2C,93
190 DATA 20,1A,93,A0,00,B1,D0,85
200 DATA D2,B1,64,91,D0,A5,D2,91
210 DATA 64,C8,C0,03,D0,EF,20,8B
220 DATA 94,60,A9,01,A8,91,2B,20
230 DATA 18,88,20,4B,88,68,68,4C
240 DATA 9A,8A,00,00,00,00,00,00
250 :
260 FORI=1536TO1639
270 READD$:POKEI,(null)(D$):C=C+(null)(D$)
280 NEXT:IFC<>12205THENPRINT" DATA FEHLER!":END
290 :
300 REM **** SYNTAX-HINWEISE ****
310 :
320 REM OLD:
330 REM SYS 1618
340 :
350 REM SWAP:
360 REM SYS 1569 (A$,B$)
370 :
380 REM BLOAD:
390 REM SYS 1536 "NAME",8,1
400 :
410 REM BSAVE:
420 REM SYS 1548 "NAME",8,1,ANF,END+1
430 REM ANFANGS-/ENDADRESSE DEZIMAL
440 :
450 REM *************************
455 :
460 PRINT" OBJEKTCODE SPEICHERN (J/N)?"
470 GET(null)C$:IFC$<>"J"THENEND
480 PRINT" CASETTE ODER DISK    (C/D)?":GET(null)C$
490 IFC$="D"THENU=8:(null)U=1
500 SYS1548"MINITOOL.OBJ",U,1,1536,1640:IFU=8THEN(null)